Dit voorbeeld maakt gebruik van de functie Environ om het regelnummer en de regellengte van de instructie PATH in de tabel met omgevingsreeksen als resultaat te geven. Niet beschikbaar op de Macintosh.
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
EnvString = Environ(Indx) ' Get environment
' variable.
If Left(EnvString, 5) = "PATH=" Then ' Check PATH entry.
PathLen = Len(Environ("PATH")) ' Get length.
Msg = "PATH-regelnummer = " & Indx & " en PATH-lengte = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' Not PATH entry,
End If ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
MsgBox Msg ' Display message.
Else
MsgBox "Er is geen variabele voor de PAD-omgeving."
End If